Interactive Penguins

Install Packages

# Packages
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.4     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   2.0.1     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(palmerpenguins)
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(DT)

# install.packages("") in CONSOLE

Create interactive plot with penguins data

Scatter plot of penguin flipper_length_mm (x axis) and body_mass_g (y axis)

penguins_graph <- ggplot(data = penguins, aes(x = flipper_length_mm, y = body_mass_g)) +
  geom_point(aes(color = species))

ggplotly(penguins_graph)

Graph won’t show up here because all we’re doing is storing this graph under the name “penguins_graph”

See below - actually showing the graph

penguins_graph

## Warning: Removed 2 rows containing missing values (geom_point).

datatable(penguins)